﻿<%
Dim admin_conn
admin_conn=1

%>
<!--#include file="../admin.asp"-->
<%
'开始会话
adminTimeCheck = 1'检测超时时间
adminIpCheck = 1'检测IP异常
hu_style = true'2.0样式

'重写Head2函数
Sub Head2()
	Dim rndnum,sid_
	' Randomize
	rndnum = 74'Int(Rnd*100000000)
	sid_ = rndnum
	If sid<>"" Then sid_ = sid
	cache False'消除缓存
	Response.ContentType = "text/html; charset=utf-8"
	w "<!DOCTYPE><html><head>"&_
		"<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8""/>"&_
		"<link type=""text/css"" rel=""stylesheet"" href="""&webadmin&"/../images/style.css?"&rndnum&""">"&_
		"<script type=""text/javascript"" src="""&webadmin&"/../images/hui.js?"&rndnum&"""></script>"&_
		"<script>var sid='"&sid_&"';</script><noscript>请不要禁用Javascript!</noscript>"
End Sub
'重写Error2函数
Sub Error2(erstr)
	Call closeconn()
	Response.write "操作出错!<script>hu.showError2('"&erstr&"')</script></body></html>"
	Response.end
end Sub
'重写Last2函数
Sub Last2()
	Call closeconn()
	w "<br/><a href=""../index.asp?sid="&sid&""">[后台管理]</a><br/>"&timeout&"</div></body></html>"
	Response.End
End Sub
'重写rootLast2函数
Sub rootLast2()
	Call closeconn()
	w "<br/><a href=""index.asp?sid="&sid&""">[后台管理]</a><br/>"&timeout&"</div></body></html>"
	Response.End
End Sub
%>